home *** CD-ROM | disk | FTP | other *** search
/ Delphi Developer's Kit 1996 / Delphi Developer's Kit 1996.iso / power / lingua / newlang.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-12-22  |  1.7 KB  |  59 lines
  1. unit Newlang;
  2. (***************************************************************************)
  3. (*                                                                         *)
  4. (*   #####    #####     #####   #####    #####    ####    ######  #######  *)
  5. (*  #        #     #   #          #     #        #    #   #          #     *)
  6. (*  #        #     #   #  ###     #      ####    #    #   ###        #     *)
  7. (*  #        #     #   #    #     #          #   #    #   #          #     *)
  8. (*   #####    #####     #####   #####   #####     ####    #          #     *)
  9. (*                                                                         *)
  10. (***************************************************************************)
  11. {
  12.  (c) 1995 Cogisoft
  13.  This component is FREE distribution. Use it for your own utilization.
  14.  But you can't sell an application, using this component, without the
  15.  authorization of Cogisoft.
  16.  
  17.  COGISOFT,H⌠tel de MΘziΦres,19 rue Michel Le Comte,75003 PARIS,FRANCE
  18.  Tel:(1)40-65-04-04, FAX:(1)42-72-27-87
  19.  
  20.  NO CODING !!!
  21.  Jerome VOLLET, CompuServe : 100560,3342
  22. }
  23. interface
  24.  
  25. uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, Buttons,
  26.   StdCtrls, ExtCtrls;
  27.  
  28. type
  29.   TfmNewLanguage = class(TForm)
  30.     OKBtn: TBitBtn;
  31.     CancelBtn: TBitBtn;
  32.     HelpBtn: TBitBtn;
  33.     Bevel1: TBevel;
  34.     Label1: TLabel;
  35.     EdLanguage: TEdit;
  36.     procedure OKBtnClick(Sender: TObject);
  37.   private
  38.     { Private declarations }
  39.   public
  40.     { Public declarations }
  41.   end;
  42.  
  43. implementation
  44.  
  45. {$R *.DFM}
  46. uses Dialogs;
  47.  
  48. procedure TfmNewLanguage.OKBtnClick(Sender: TObject);
  49. begin
  50.     if EdLanguage.Text = '' then
  51.   begin
  52.       ShowMessage( 'Language MUST be filled !!!' );
  53.       ModalResult := mrNone;
  54.     EdLanguage.SetFocus;
  55.   end;
  56. end;
  57.  
  58. end.
  59.